program Project1; // Zadanie 2.2

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, c, delta, x1, x2: Real;

begin
   Writeln('Program oblicza pierwiastki rownania kwadratowego dla dowolnych wspolczynnikow a, b, c.');
   Writeln('Podaj a.');
   Readln(a);
   if (a = 0) then
     Writeln('Niedozwolona wartosc wspolczynnika a. Nacisnij klawisz Enter.')
   else
     begin
       Writeln('Podaj b.');
       Readln(b);
       Writeln('Podaj c.');
       Readln(c);
       Writeln('Dla wprowadzonych liczb:');
       Writeln('a = ', a:4:2, ',');
       Writeln('b = ', b:4:2, ',');
       Writeln('c = ', c:4:2, ',');

       delta :=  b*b-4*a*c;

       if delta < 0 then
         Writeln('brak pierwiastkow rzeczywistych.')
       else
         begin
           if delta = 0 then
             begin
               x1 := -b/(2*a);
               Writeln('trojmian ma jeden pierwiastek podwojny x1 = ', x1:4:2, '.');
             end
            else
              begin
                x1 := (-b-sqrt(delta))/(2*a);
                x2 := (-b+sqrt(delta))/(2*a);
                Writeln('trojmian ma dwa pierwiastki:');
                Writeln('x1 = ', x1:4:2, ',');
                Writeln('x2 = ', x2:4:2, '.');
              end;
         end;
     end;

  Readln; // czeka na nacisniecie klawisza Enter
end.
